home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / gfa / gfaexprt.lzh / GFAXPERT.LIB / MODEM.LST < prev    next >
Encoding:
File List  |  1986-10-19  |  743 b   |  48 lines
  1. ' *****************
  2. ' *** MODEM.LST ***
  3. ' *****************
  4. '
  5. DEFWRD "a-z"
  6. '
  7. > PROCEDURE baud(rate%)
  8.   ' *** change baudrate
  9.   LOCAL bd%
  10.   SELECT rate%
  11.   CASE 19200
  12.     bd%=0
  13.   CASE 9600
  14.     bd%=1
  15.   CASE 4800
  16.     bd%=2
  17.   CASE 3600
  18.     bd%=3
  19.   CASE 2400
  20.     bd%=4
  21.   CASE 2000
  22.     bd%=5
  23.   CASE 1800
  24.     bd%=6
  25.   CASE 1200
  26.     bd%=7
  27.   CASE 600
  28.     bd%=8
  29.   CASE 300
  30.     bd%=9
  31.   CASE 200
  32.     bd%=10
  33.   CASE 150
  34.     bd%=11
  35.   CASE 134
  36.     bd%=12
  37.   CASE 110
  38.     bd%=13
  39.   CASE 75
  40.     bd%=14      ! old TOS (bug) : results in 120 baud instead of 75 baud !!
  41.   CASE 50
  42.     bd%=15      ! old TOS (bug) : results in 80 baud instead of 50 baud !!
  43.   ENDSELECT
  44.   ~XBIOS(15,bd%,-1,-1,-1,-1,-1)
  45. RETURN
  46. ' **********
  47. '
  48.